﻿'========================================================================
'功能:資產商業邏輯物件
'作者:andy
'日期: 2011/1/31
'========================================================================

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports System.Text
Imports System.Data
Namespace AssetManage.BBL
    Public Class AssetLogBBL
      
        Public Function GetAssetLogData(ByVal assetdef_id As String, ByVal asset_owner As String, ByVal asset_SerialNo As String, ByVal Dept As String, ByVal HouseID As String, ByVal MAC As String, ByVal ComputerName As String, ByVal IP As String, ByVal dbName As String) As DataTable
            Dim db1 As AssetManage.DAO.AssetLogDAO = New AssetManage.DAO.AssetLogDAO(dbName)
            Return db1.GetAssetLogData(assetdef_id, asset_owner, asset_SerialNo, Dept, HouseID, MAC, ComputerName, IP)

        End Function
        Public Function GetAssetLogDetail(ByVal asset_SerialNo As String, ByVal seqno As String, ByVal dbName As String) As DataTable
            Dim db1 As AssetManage.DAO.AssetLogDAO = New AssetManage.DAO.AssetLogDAO(dbName)
            Return db1.GetAssetLogDetail(asset_SerialNo, seqno)
        End Function

    End Class
End Namespace

